home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / sysmon / src / ExcptTest.c < prev    next >
Encoding:
C/C++ Source or Header  |  2002-10-27  |  2.6 KB  |  88 lines
  1. /*
  2. **    $RCSfile: ExcptTest.c,v $
  3. **    $Filename: ExcptTest.c $
  4. **    $Revision: 1.0 $
  5. **    $Date: 2000/08/01 15:25:03 $
  6. **
  7. **    sysmon.library silly Exception Test program (version 1.0)
  8. **    
  9. **    (C) Copyright 2000 by Etienne Vogt
  10. */
  11.  
  12. #define __USE_SYSBASE
  13. #include <proto/exec.h>
  14. #include <proto/dos.h>
  15. #include <string.h>
  16. #include <stdlib.h>
  17. #include "sysmon.h"
  18. #include "sysmon_protos.h"
  19. #include "sysmon_pragmas.h"
  20.  
  21. struct SysmonBase *SysmonBase;
  22.  
  23. /* Global variables shared with exception code */
  24. struct Process *myproc;
  25. volatile BOOL done = FALSE;    /* Don't optimize this, please */
  26. APTR oldexcept;
  27.  
  28. /* Prototypes */
  29. int main(void);
  30. static void cleanexit(int rc);
  31. static ULONG __saveds __asm myexcept(register __d0 ULONG excptsigs, register __a1 APTR excptdata);
  32.  
  33. static UBYTE version[] = "$VER: ExcptTest 1.0 (2.8.2000)";
  34.  
  35. int main(void)
  36. { 
  37.   SysmonBase = NULL;
  38.   myproc = (struct Process *)FindTask(NULL);
  39.  
  40.   if ((SysmonBase = (struct SysmonBase *)OpenLibrary("sysmon.library",1)) == NULL)
  41.   { PutStr("ExcptTest: Couldn't open sysmon.library V1\n");
  42.     cleanexit(20);
  43.   }
  44.  
  45.   smDisallowExcept();            /* Block exceptions for now */
  46.   oldexcept = myproc->pr_Task.tc_ExceptCode;
  47.   myproc->pr_Task.tc_ExceptCode = (APTR)myexcept;    /* Set our exception code */
  48.   SetExcept(SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_F, SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_F); /* Activate CTRL_C and CTRL_F as exception signals */
  49.   smAllowExcept();            /* Exceptions now allowed */
  50.  
  51.   PutStr("Sleeping, Type CTRL_C or CTRL_F to quit\n");
  52.  
  53.   while (!done) smHibernate();        /* Rrrrr... Pffffff.... */
  54.  
  55.   PutStr("Woken up by CTRL_F, exiting\n");
  56.  
  57.   smDisallowExcept();        /* Block exceptions again for cleanup */
  58.   SetExcept(0, SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_F);    /* Deactivate exception signals */
  59.   myproc->pr_Task.tc_ExceptCode = oldexcept;    /* Restore old exception code */
  60.   smAllowExcept();
  61.  
  62.   cleanexit(0);
  63. }
  64.  
  65. static ULONG __saveds __asm myexcept(register __d0 ULONG excptsigs, register __a1 APTR excptdata)
  66. {
  67.   if (excptsigs & SIGBREAKF_CTRL_F)    /* CTRL_F received */
  68.   { done = TRUE;    /* Tell the main code it's time to exit */
  69.     smWakeUp((struct Task*)myproc);
  70.   }
  71.   if (excptsigs & SIGBREAKF_CTRL_C)    /* CTRL_C received */
  72.   { PutStr("BREAK\n");
  73.     smEndExcept(FALSE);        /* Prepare for exit, does an implicit smDisallowExcept() */
  74.     SetExcept(0, SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_F);    /* Deactivate exception signals */
  75.     myproc->pr_Task.tc_ExceptCode = oldexcept;        /* Restore old exception code */
  76.     smAllowExcept();        /* Don't forget this one */
  77.     cleanexit(5);        /* byebye... */
  78.   }
  79.  
  80.   return excptsigs;    /* for compatibility with exec */
  81. }
  82.  
  83. static void cleanexit(int rc)
  84. {
  85.   if (SysmonBase) CloseLibrary((struct Library *)SysmonBase);
  86.   exit(rc);
  87. }
  88.